home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / src / X11 / tclMotif-1.4 / programs / prog86 < prev    next >
Encoding:
Text File  |  1995-06-29  |  948 b   |  43 lines
  1.  
  2. xtAppInitialize -class Program
  3.  
  4. xmMainWindow .main managed -scrollBarDisplayPolicy as_needed \
  5.         -scrollingPolicy automatic
  6. # mainWindow .main
  7. xmLabel .main.label managed
  8.  
  9. # top menu bar
  10. xmMenuBar .main.menuBar managed
  11. xmCascadeButton .main.menuBar.file managed \
  12.     -labelString File \
  13.     -mnemonic F
  14.  
  15. # file pulldown
  16. xmPulldownMenu .main.menuBar.fileMenu \
  17.      -tearOffModel tear_off_enabled
  18.  
  19. .main.menuBar.fileMenu.TearOffControl setValues \
  20.     -foreground red -background black
  21.  
  22. xmPushButton .main.menuBar.fileMenu.new managed \
  23.     -labelString "New..." \
  24.     -mnemonic N
  25. xmPushButton .main.menuBar.fileMenu.quit managed \
  26.      -labelString Quit \
  27.     -mnemonic Q
  28. xmSeparator .main.menuBar.fileMenu.bar1 managed
  29. xmPushButton .main.menuBar.fileMenu.quit2 managed \
  30.      -labelString Quit \
  31.     -mnemonic Q
  32. .main.menuBar.file setValues -subMenuId .main.menuBar.fileMenu
  33.  
  34.  
  35.  
  36. .main setValues -workWindow .main.label \
  37.         -menuBar .main.menuBar
  38.  
  39.  
  40. . realizeWidget
  41.  
  42. . mainLoop
  43.